## [1] "C:/Users/cui/Documents/R-Projects/JHCovidAnalysis"
## [1] "After population data extraction, 3 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam" "Summer Olympics 2020"
Country Rankings
Increases
Top 20 Countries - Increase Deaths Avg Avg
|
Country_Region
|
Increase_Deaths_Avg_Avg
|
|
United States
|
1415.2
|
|
Russia
|
999.7
|
|
Poland
|
429.0
|
|
India
|
339.5
|
|
Germany
|
333.2
|
|
Ukraine
|
288.9
|
|
Vietnam
|
237.0
|
|
Turkey
|
169.8
|
|
France
|
162.4
|
|
Mexico
|
152.3
|
|
Italy
|
135.1
|
|
Hungary
|
122.3
|
|
Brazil
|
109.6
|
|
United Kingdom
|
107.9
|
|
Greece
|
78.9
|
|
South Korea
|
71.9
|
|
Bulgaria
|
68.8
|
|
Slovakia
|
67.6
|
|
Philippines
|
66.8
|
|
Czech Republic
|
66.5
|
Top 20 Countries - Increase Weighted Deaths Avg per 1e+06 people
|
Country_Region
|
Increase_Weighted_Deaths_Avg_Avg
|
|
Trinidad and Tobago
|
19.06
|
|
Georgia
|
15.21
|
|
Hungary
|
12.57
|
|
Slovakia
|
12.38
|
|
Croatia
|
12.37
|
|
San Marino
|
11.52
|
|
Poland
|
11.24
|
|
Bulgaria
|
10.01
|
|
Lithuania
|
8.45
|
|
Andorra
|
7.59
|
|
Greece
|
7.36
|
|
Ukraine
|
7.00
|
|
Russia
|
6.84
|
|
Moldova
|
6.63
|
|
Bosnia and Herzegovina
|
6.57
|
|
Czech Republic
|
6.23
|
|
North Macedonia
|
6.00
|
|
Monaco
|
5.32
|
|
Saint Lucia
|
5.03
|
|
Latvia
|
4.92
|
Top 20 Countries - Increase Confirmed Avg Avg
|
Country_Region
|
Increase_Confirmed_Avg_Avg
|
|
United States
|
186836
|
|
United Kingdom
|
92669
|
|
France
|
64893
|
|
Spain
|
39825
|
|
Italy
|
32569
|
|
Germany
|
31770
|
|
Canada
|
26364
|
|
Russia
|
25991
|
|
Turkey
|
18543
|
|
Vietnam
|
16644
|
|
South Africa
|
16449
|
|
Poland
|
15215
|
|
Netherlands
|
12976
|
|
Australia
|
12855
|
|
Denmark
|
11757
|
|
Argentina
|
8548
|
|
Switzerland
|
8288
|
|
India
|
7004
|
|
Ireland
|
6782
|
|
Portugal
|
6742
|
Top 20 Countries - Increase Weighted Confirmed Avg per 1e+04 people
|
Country_Region
|
Increase_Weighted_Confirmed_Avg_Avg
|
|
San Marino
|
21.64
|
|
Andorra
|
20.92
|
|
Denmark
|
20.04
|
|
Monaco
|
14.33
|
|
United Kingdom
|
13.81
|
|
Ireland
|
13.53
|
|
Liechtenstein
|
10.10
|
|
France
|
9.61
|
|
Switzerland
|
9.51
|
|
Malta
|
9.38
|
|
Cyprus
|
8.58
|
|
Spain
|
8.40
|
|
Slovakia
|
7.82
|
|
Iceland
|
7.78
|
|
Netherlands
|
7.34
|
|
Norway
|
7.05
|
|
Croatia
|
6.93
|
|
Canada
|
6.84
|
|
Portugal
|
6.51
|
|
Eswatini
|
6.48
|
Totals
Top 20 Countries - Total Deaths
|
Country_Region
|
Deaths
|
|
United States
|
818371
|
|
Brazil
|
618797
|
|
India
|
480290
|
|
Russia
|
299077
|
|
Mexico
|
298777
|
|
Peru
|
202524
|
|
United Kingdom
|
148470
|
|
Indonesia
|
144063
|
|
Italy
|
136753
|
|
Iran
|
131434
|
|
Colombia
|
129798
|
|
France
|
123883
|
|
Argentina
|
117066
|
|
Germany
|
110810
|
|
Ukraine
|
101049
|
|
Poland
|
94365
|
|
South Africa
|
90829
|
|
Spain
|
89139
|
|
Turkey
|
81733
|
|
Canada
|
60458
|
Top 20 Countries - Total Weighted Deaths per 1e+06 people
|
Country_Region
|
Weighted_Deaths
|
|
Peru
|
6131
|
|
Bulgaria
|
4454
|
|
Bosnia and Herzegovina
|
4012
|
|
Hungary
|
3981
|
|
Montenegro
|
3855
|
|
North Macedonia
|
3822
|
|
Moldova
|
3706
|
|
Georgia
|
3643
|
|
Czech Republic
|
3352
|
|
Croatia
|
3066
|
|
Romania
|
3053
|
|
Slovakia
|
3012
|
|
San Marino
|
2911
|
|
Brazil
|
2890
|
|
Armenia
|
2682
|
|
Slovenia
|
2633
|
|
Lithuania
|
2629
|
|
Argentina
|
2556
|
|
Colombia
|
2543
|
|
Poland
|
2473
|
Maps
Plots
# CountryList <- bind_rows(top_Increase_Weighted_Deaths_Avg_Avg %>% select(Country_Region),
# top_Increase_Deaths_Avg_Avg%>% select(Country_Region),
# top_Deaths %>% select(Country_Region)) %>% unique() %>% pull(Country_Region)
# CountryList <- unique(c(top_Increase_Weighted_Deaths_Avg_Avg$Country_Region,
# top_Increase_Deaths_Avg_Avg$Country_Region,
# top_Deaths$Country_Region,
#
# "Portugal"))
CountryList <- c("United Kingdom","France","Italy","Germany",#"Belgium",
"Spain"#,"Greece"#,
#"Sweden","Norway","Finland","Czech Republic","Peru", "United States", "Brazil"
)